
/FILENAME,E413
/TITLE,EATHQUAKE ANALYSIS OF TOWER
!ע"TOWER"ļڹĿ¼
TOWER				!кģ
!ʩӵغ
!-----------------------
!---GUI---
!-----------------------
!ȽACELXACELYļڹĿ¼
!************************
*DIM,tjx,ARRAY,2,190,0, , ,  	!
*DIM,tjy,ARRAY,2,190,0, , ,  	!
*CREATE,ansuitmp			!
*VREAD,tjx(1,1),'ACELX','txt',' ',190, , , , , , 
(e9.3,e11.3)
*END
/INPUT,ansuitmp 
*CREATE,ansuitmp			!
*VREAD,tjy(1,1),'ACELY','txt',' ',190, , , , , , 
(e9.3,e11.3)
*END
/INPUT,ansuitmp 
!********************************
/SOLU
ANTYPE,4				!ָΪ˲̬ѧ
TRNOPT,FULL			!˲̬ѧFULL
!**************غ**************
*DO,T,1,190,1			!ѭݲ
TIME,0.1*T			!ʱ䲽
KBC,0				!ָغΪغ
NSUB,1				!趨ӲΪ1
ALPHAD,0.05			!趨ALPHAΪ0.05
BETAD,0.01			!趨նBETAΪ0.01
ACEL,TJX(2,T),TJY(2,T)		!趨xyٶ
ALLS				!ѡԪ
SOLVE				!
*ENDDO
SAVE				!
FINI
/POST1
SET,,,,,8.9			!ӽļ8.9ʱ
PLNSOL, U,SUM, 0,1.0     	!ʾλͼ
PLNSOL, U,X, 0,1.0	     	!ʾXλͼ
PLNSOL, S,EQV, 0,1.0    	!ʾEQUIVALENT STRESS
PLNSOL, S,X, 0,1.0    	!ʾX STRESS
!*****************************
ESEL,S,MAT,,1            	!ѡǵԪ
ETABLE,T_MX, SMISC, 4    	!XصԪ
ETABLE,T_MY, SMISC, 5    	!Y
ETABLE,T_TX, SMISC, 1    	!X
ETABLE,T_TY, SMISC, 2    	!Y
PLETAB,T_MX,NOAV         	!ʾXͼ
PLETAB,T_MY,NOAV         	!ʾYͼ
PLETAB,T_TX              	!ʾXͼ
PLETAB,T_TY              	!ʾYͼ
!**************̿***************
ESEL,S,ENAME,,45		!ѡԪΪSOLID45ĵԪ
PLNSOL, U,SUM, 0,1.0     	!λͼ
PLNSOL, S,EQV, 0,1.0    	!ʾEQUIVALENT STRESS
ALLS
!-------------------
!--ʱ̺---
!-------------------
FINI
/POST26
NUMVAR,20			!ָı
NSOL,2,3357,U,X, UX_UP  	!ȡڵXλ
NSOL,3,3357,U,Y, UY_UP  	!ȡڵYλ
NSOL,4,3357,U,Z, UZ_UP  	!ȡڵZλ
NSOL,5,197,U,X, UX_MID  	!ȡмڵXλ
NSOL,6,197,U,Y, UY_MID  	!ȡмڵYλ
NSOL,7,197,U,Z, UZ_MID  	!ȡмڵZλ
NSOL,8,2,U,X, UX_LOW  	!ȡڵXλ
NSOL,9,2,U,Y, UY_LOW  	!ȡڵYλ
NSOL,10,2,U,Z, UZ_LOW  	!ȡڵZλ
DERIV,11,2,1,,VX_UP		!ԶڵXλ΢㣬õXٶ
DERIV,12,3,1,,VY_UP		!ԶڵYλ΢㣬õYٶ
DERIV,13,4,1,,VZ_UP		!ԶڵZλ΢㣬õZٶ
DERIV,14,5,1,,VX_MID		!мڵXλ΢㣬õXٶ
DERIV,15,6,1,,VY_MID		!мڵYλ΢㣬õYٶ
DERIV,16,7,1,,VZ_MID		!мڵZλ΢㣬õZٶ
DERIV,17,8,1,,VX_LOW		!ڵXλ΢㣬õXٶ
DERIV,18,9,1,,VY_LOW		!ڵYλ΢㣬õYٶ
DERIV,19,10,1,,VZ_LOW		!ڵZλ΢㣬õZٶ
PLVAR,2,5,8			!ʾڵXλʱ仯
PLVAR,3,6	,9		!ʾڵYλʱ仯
PLVAR,4,7	,10		!ʾڵZλʱ仯
PLVAR,11,14,17			!ʾڵXٶʱ仯
PLVAR,12,15,18			!ʾڵYٶʱ仯
PLVAR,13,16,19			!ʾڵZٶʱ仯
PLVAR,3			!ʾϽڵYλʱ仯
PLVAR,12				!ʾϽڵYٶʱ仯

